home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / 500forms / modgener.bas < prev    next >
Encoding:
BASIC Source File  |  1999-09-15  |  427 b   |  22 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. ' This program is a sample program
  5. ' Which demonstrates Instancing in VB
  6. ' Wrote by Tim Kessler
  7. ' takessl@rocketmail.com
  8. ' There is no warranty expressed or
  9. ' implied.
  10.  
  11.  
  12. Global FormCount As Integer
  13.  
  14. ' Set Test number of forms here:
  15. Public Const MAX_FORMS = 500
  16.  
  17. Public Sub Main()
  18.     Dim frmNew As New Form1
  19.     Set frmNew = New Form1
  20.     frmNew.Show
  21. End Sub
  22.